home *** CD-ROM | disk | FTP | other *** search
Wrap
; ; ARENA Installation script ; ; Copyright © 1995 S. Craig Taylor. All rights reserved. ; ; $ID Install 1.4 31/10/95 ; ; Languages available: ; English (default) ; ; ======================================================================= ; Set up localized strings ; ======================================================================= ; ; ===== English ; (set #welcome " Welcome to the ARENA installation\n\n Copyright © 1995 S.Craig Taylor.\n All rights reserved.\n") (set #dir_prompt "Where should ARENA be installed? A drawer named `ARENA' will be created there. If you're updating from a previous version, select the directory containing the ARENA drawer.") (set #addcmds "The following instructions will be added to your \"S:User-Startup\" file so that your system will be properly configured to use ARENA.\n\nAssign ARENA %s") (set #addhelp "This will add some commands to your S:User-Startup file to allow the correct operation of ARENA.") (set #thanks "\nThank you for playing ARENA.\n\n") (set #userstartup "; Executive installation was aborted.") (set #abort_remove "Installation aborted.") ; ; ======================================================================= ; Begin installation ; ======================================================================= (welcome #welcome) (complete 0) ; ===== cancel the assign in case it already exists (makeassign "ARENADEST" (safe)) (set ARENADEST (tackon (askdir (prompt #dir_prompt) (help #dir_help @askdir-help) (default @default-dest) ) "ARENA" ) ) (makeassign "ARENADEST" (pathonly ARENADEST) (safe) ) ; ===== Tells installer where ARENA shoud be installed (set @default-dest ARENADEST) ; ===== Copy Files (makedir "ARENADEST:ARENA") (makedir "ARENADEST:ARENA/ARENAS") (run "copy ARENAS.INFO ARENADEST:ARENA.INFO") (complete 1) (run "copy ARENAS.INFO ARENADEST:ARENA") (complete 2) (run "copy ARENA ARENADEST:ARENA") (complete 30) (run "copy ARENA.INFO ARENADEST:ARENA") (complete 31) (run "copy ARENATITLE32.ABK ARENADEST:ARENA") (complete 35) (run "copy ARENA_TITLE4.ABK ARENADEST:ARENA") (complete 40) (run "copy EXPLODE2.ABK ARENADEST:ARENA") (complete 45) (run "copy FACES2.ABK ARENADEST:ARENA") (complete 50) (run "copy INTO_THE_ARENA2.ABK ARENADEST:ARENA") (complete 55) (run "copy LPICONS2.ABK ARENADEST:ARENA") (complete 65) (run "copy LPSOUNDS2.ABK ARENADEST:ARENA") (complete 70) (run "copy ARENAS/#? ARENADEST:ARENA/ARENAS") (complete 90) (if (not (exists "SYS:FONTS/2001" (noreq))) (Makedir "SYS:FONTS/2001") ) (run "COPY FONTS/2001/8 SYS:FONTS/2001") (run "COPY FONTS/2001.font SYS:FONTS") (complete 95) ; (if (not (exists "SYS:FONTS/ARENA" (noreq))) (Makedir "SYS:FONTS/ARENA") ) (run "COPY FONTS/ARENA.font SYS:FONTS") (run "COPY FONTS/ARENA/13 SYS:FONTS/ARENA") (complete 99) ; ===== Add Assign command to s:user-startup (startup "ARENA" (prompt (#addcmds ARENADEST ARENADEST)) (help #addhelp @startup-help) (command ("ASSIGN ARENA: %s" ARENADEST)) ) (complete 100) ;(makeASSIGN ARENA: "ARENADEST") (makeASSIGN "ARENA: ARENADEST") (exit #thanks)